home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / RLSH.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  985 b   |  13 lines
  1.  
  2. *                                                                               
  3. *MOVE A TO B (SINGLE VAR) WITH N (CONST) BIT                                    
  4. *RIGHT LOGICAL SHIFT                                                            
  5. *                                                                               
  6. RLSH  $MACRO A,B,N      MOVE WITH RIGHT LOGICAL SHIFT                           
  7.       LAC  :A:,16-:N:   LOAD, RIGHT SHIFT                                       
  8.       SACH :B:,0        SAVE HIGH PART                                          
  9.       LAC  MINUS,16-:N: GET MASK                                                
  10.       NOT                                                                       
  11.       AND  :B:          APPLY MASK                                              
  12.       SACL :B:,0        STORE BACK TO :B:                                       
  13.       $END